/ Best Tools for JAVA / Best Tools for JAVA.iso / GRAPHICS / BMPWIZ / BMPWIZ.ZIP / CAOS1.BAS

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| ef 03 00 00 0d 0a 27 20 | 43 61 6f 73 31 0d 0a 27 |......' |Caos1..'|
|00000010| 20 53 77 69 74 63 68 20 | 70 69 78 65 6c 73 20 77 | Switch |pixels w|
|00000020| 69 74 68 20 72 61 6e 64 | 6f 6d 20 66 75 6e 63 74 |ith rand|om funct|
|00000030| 69 6f 6e 20 69 6e 20 72 | 65 63 74 20 62 6f 75 6e |ion in r|ect boun|
|00000040| 64 61 72 79 2e 0d 0a 0d | 0a 27 20 49 6e 70 75 74 |dary....|.' Input|
|00000050| 3a 09 34 2d 38 2d 32 34 | 20 62 69 74 0d 0a 27 20 |:.4-8-24| bit..' |
|00000060| 4f 75 74 70 75 74 3a 09 | 34 2d 38 2d 32 34 20 62 |Output:.|4-8-24 b|
|00000070| 69 74 0d 0a 0d 0a 27 20 | 41 75 74 68 6f 72 3a 09 |it....' |Author:.|
|00000080| 41 6e 64 72 65 61 20 42 | 65 6e 6f 6e 69 09 09 09 |Andrea B|enoni...|
|00000090| 20 72 65 76 3a 09 31 2e | 32 0d 0a 0d 0a 0d 0a 73 | rev:.1.|2......s|
|000000a0| 74 72 69 6e 67 20 20 20 | 20 09 69 6e 70 46 69 6c |tring   | .inpFil|
|000000b0| 65 2c 6f 75 74 46 69 6c | 65 0d 0a 44 65 76 43 6f |e,outFil|e..DevCo|
|000000c0| 6e 09 49 62 6d 70 0d 0a | 52 47 42 09 70 69 78 70 |n.Ibmp..|RGB.pixp|
|000000d0| 2c 70 69 78 73 0d 0a 66 | 6c 6f 61 74 20 20 09 78 |,pixs..f|loat  .x|
|000000e0| 2c 79 2c 78 70 2c 79 70 | 2c 78 73 2c 79 73 2c 73 |,y,xp,yp|,xs,ys,s|
|000000f0| 2c 74 2c 74 6d 0d 0a 0d | 0a 73 3d 37 09 09 09 09 |,t,tm...|.s=7....|
|00000100| 09 09 27 20 72 65 63 74 | 20 73 69 64 65 0d 0a 74 |..' rect| side..t|
|00000110| 6d 3d 35 30 09 09 09 09 | 09 09 27 20 70 69 78 65 |m=50....|..' pixe|
|00000120| 6c 20 6e 75 6d 0d 0a 69 | 6e 70 46 69 6c 65 3d 22 |l num..i|npFile="|
|00000130| 54 65 73 74 69 2e 62 6d | 70 22 09 09 09 09 27 20 |Testi.bm|p"....' |
|00000140| 69 6e 70 75 74 20 66 69 | 6c 65 0d 0a 6f 75 74 46 |input fi|le..outF|
|00000150| 69 6c 65 3d 22 54 65 73 | 74 6f 2e 62 6d 70 22 09 |ile="Tes|to.bmp".|
|00000160| 09 09 09 27 20 6f 75 74 | 70 75 74 20 66 69 6c 65 |...' out|put file|
|00000170| 0d 0a 0d 0a 49 62 6d 70 | 3d 4c 6f 61 64 49 6d 61 |....Ibmp|=LoadIma|
|00000180| 67 65 28 69 6e 70 46 69 | 6c 65 29 09 09 09 09 27 |ge(inpFi|le)....'|
|00000190| 20 6c 65 67 67 65 20 6c | 27 69 6d 6d 61 67 69 6e | legge l|'immagin|
|000001a0| 65 0d 0a 27 4f 62 6d 70 | 3d 43 72 65 61 74 65 49 |e..'Obmp|=CreateI|
|000001b0| 6d 61 67 65 28 49 62 6d | 70 2e 57 69 64 74 68 2c |mage(Ibm|p.Width,|
|000001c0| 49 62 6d 70 2e 48 65 69 | 67 68 74 2c 49 62 6d 70 |Ibmp.Hei|ght,Ibmp|
|000001d0| 2e 42 69 74 43 6f 75 6e | 74 29 0d 0a 0d 0a 46 6f |.BitCoun|t)....Fo|
|000001e0| 72 20 79 3d 30 20 74 6f | 20 49 62 6d 70 2e 48 65 |r y=0 to| Ibmp.He|
|000001f0| 69 67 68 74 2d 73 20 53 | 74 65 70 20 73 0d 0a 20 |ight-s S|tep s.. |
|00000200| 20 20 44 73 70 57 68 69 | 6c 65 28 22 4d 6f 73 61 |  DspWhi|le("Mosa|
|00000210| 69 63 22 2c 31 30 30 2f | 49 62 6d 70 2e 48 65 69 |ic",100/|Ibmp.Hei|
|00000220| 67 68 74 2a 79 29 0d 0a | 20 20 20 50 72 65 76 69 |ght*y)..|   Previ|
|00000230| 65 77 28 49 62 6d 70 2c | 69 6e 70 46 69 6c 65 2c |ew(Ibmp,|inpFile,|
|00000240| 35 2c 35 29 0d 0a 20 20 | 20 46 6f 72 20 78 3d 30 |5,5)..  | For x=0|
|00000250| 20 74 6f 20 49 62 6d 70 | 2e 57 69 64 74 68 2d 73 | to Ibmp|.Width-s|
|00000260| 20 53 74 65 70 20 73 0d | 0a 20 20 20 20 20 20 46 | Step s.|.      F|
|00000270| 6f 72 20 74 3d 30 20 74 | 6f 20 74 6d 0d 0a 20 20 |or t=0 t|o tm..  |
|00000280| 20 20 20 20 20 20 20 78 | 70 3d 78 2b 52 61 6e 64 |       x|p=x+Rand|
|00000290| 28 73 29 0d 0a 20 20 20 | 20 20 20 20 20 20 79 70 |(s)..   |      yp|
|000002a0| 3d 79 2b 52 61 6e 64 28 | 73 29 0d 0a 20 20 20 20 |=y+Rand(|s)..    |
|000002b0| 20 20 20 20 20 78 73 3d | 78 2b 52 61 6e 64 28 73 |     xs=|x+Rand(s|
|000002c0| 29 0d 0a 20 20 20 20 20 | 20 20 20 20 79 73 3d 79 |)..     |    ys=y|
|000002d0| 2b 52 61 6e 64 28 73 29 | 0d 0a 20 20 20 20 20 20 |+Rand(s)|..      |
|000002e0| 20 20 20 70 69 78 70 3d | 47 65 74 50 69 78 65 6c |   pixp=|GetPixel|
|000002f0| 28 49 62 6d 70 2c 78 70 | 2c 79 70 29 0d 0a 20 20 |(Ibmp,xp|,yp)..  |
|00000300| 20 20 20 20 20 20 20 70 | 69 78 73 3d 47 65 74 50 |       p|ixs=GetP|
|00000310| 69 78 65 6c 28 49 62 6d | 70 2c 78 73 2c 79 73 29 |ixel(Ibm|p,xs,ys)|
|00000320| 0d 0a 20 20 20 20 20 20 | 20 20 20 53 65 74 50 69 |..      |   SetPi|
|00000330| 78 65 6c 28 49 62 6d 70 | 2c 78 70 2c 79 70 2c 70 |xel(Ibmp|,xp,yp,p|
|00000340| 69 78 73 29 0d 0a 20 20 | 20 20 20 20 20 20 20 53 |ixs)..  |       S|
|00000350| 65 74 50 69 78 65 6c 28 | 49 62 6d 70 2c 78 73 2c |etPixel(|Ibmp,xs,|
|00000360| 79 73 2c 70 69 78 70 29 | 0d 0a 20 20 20 20 20 20 |ys,pixp)|..      |
|00000370| 4e 65 78 74 20 74 0d 0a | 20 20 20 4e 65 78 74 20 |Next t..|   Next |
|00000380| 78 0d 0a 4e 65 78 74 20 | 79 0d 0a 0d 0a 50 72 65 |x..Next |y....Pre|
|00000390| 76 69 65 77 28 49 62 6d | 70 2c 69 6e 70 46 69 6c |view(Ibm|p,inpFil|
|000003a0| 65 2c 35 2c 35 29 0d 0a | 53 61 76 65 49 6d 61 67 |e,5,5)..|SaveImag|
|000003b0| 65 28 49 62 6d 70 2c 6f | 75 74 46 69 6c 65 29 09 |e(Ibmp,o|utFile).|
|000003c0| 09 27 20 53 61 76 65 20 | 6f 75 74 70 75 74 20 69 |.' Save |output i|
|000003d0| 6d 61 67 65 0d 0a 44 73 | 70 57 68 69 6c 65 28 22 |mage..Ds|pWhile("|
|000003e0| 22 2c 30 29 0d 0a 44 73 | 70 4d 65 73 28 22 45 6e |",0)..Ds|pMes("En|
|000003f0| 64 22 29                |                         |d")     |        |
+--------+-------------------------+-------------------------+--------+--------+